CLS    'Q90  timer
st:
PRINT 
PRINT  "Time","5sec","1 min","PulsePerSec.","Average Whole Run"
PRINT TIME$
strt:
J$ =  RIGHT$ (TIME$,1)
IF J$ = "0" OR J$ = "5" THEN cn
GOTO strt
cn:
PRINT TIME$
   FOR t = 1 TO 18  '18 = 90 seconds   
FOR d = 1 TO 3100
b=b-STRIG(2)
NEXT d
v = b/5 : cn = cn + 1 : vv = vv + v
x = vv/cn :
PRINT TIME$,b,b*12"SPM",b/5 "Hz", x
m=m+b
b = 0
   NEXT t  
PRINT "   Average this 90 seconds ="(m/90) * 60"SPM",m/90 "Hz"
m=0: GOTO st